dVERSION = 3.00 ࡱ> Root EntryY F@OleObjectDataXAccessObjSiteData&\ChangedProps:Oɮ{{FV V MR KQ\$875E05FE0-59D6-101B-A3C9-08002B2F49FB_Arial\7W"%U BUTHISVALUE T UVNEWVALTHISVALUE VNEWVALUE text_access, text_assignL13"2*L})l*listindex_access *listindex_assign *topindex_assign *topindex_access *indexaccess *indexassign outline11listbox7Height = 170 Width = 100 text = Name = "listbox1"  olecontrollistbox1 olecontrolClassPixels1$text *text_access *text_assign outline1!Arial, 0, 9, 5, 15, 12, 13, 3, 0 listbox1PixelsClasslistbox*OLEObject = D:\WIN95\SYSTEM\MSOUTL32.OCX .Height = 100 Width = 100 Name = "outline1" PROCEDURE text_access RETURN this.Value ENDPROC PROCEDURE text_assign LPARAMETERS m.vNewVal this.Value=m.vNewValue ENDPROC PROCEDURE listindex_access RETURN this.IndexAccess(this.ListIndex) ENDPROC PROCEDURE listindex_assign LPARAMETERS m.uNewValue this.ListIndex=this.IndexAssign(m.uNewValue) ENDPROC PROCEDURE topindex_assign LPARAMETERS m.uNewValue this.TopIndex=this.IndexAssign(m.uNewValue) ENDPROC PROCEDURE topindex_access RETURN this.IndexAccess(this.TopIndex) ENDPROC PROCEDURE indexaccess LPARAMETERS tnIndex LOCAL lnIndex lnIndex=tnIndex IF lnIndex>=0 lnIndex=lnIndex+1 ENDIF RETURN lnIndex ENDPROC PROCEDURE indexassign LPARAMETERS tnIndex LOCAL lnIndex lnIndex=tnIndex IF lnIndex>=0 lnIndex=lnIndex-1 ENDIF RETURN lnIndex ENDPROC ~ee;%UBCUTHIS INDEXACCESS LISTINDEX& TC U UNEWVALUETHIS LISTINDEX INDEXASSIGN& TC U UNEWVALUETHISTOPINDEX INDEXASSIGNBCUTHIS INDEXACCESSTOPINDEXM T%=T BUTNINDEXLNINDEXM T%=T BUTNINDEXLNINDEXlistindex_access,listindex_assigndtopindex_assigntopindex_access  indexaccess@ indexassign1133313qqA3qqA2El# Iq & )e collectionPixelsClass1custom collection3count *count_access ^item[1,0] *item_access  %^U T(p-%CC f COMMANDBUTTONlT BULNCOUNTITHISFORM CONTROLCOUNTCONTROLS BASECLASST %CC:RETURN THISFORM.&nIndex. BC UNINDEXTHISFORM MYBUTTONS count_access, item_access1rAA3QA12 % )PROCEDURE count_access *To do: Modify this routine for the Access method LOCAL lnCount lnCount = 0 FOR i = 1 TO THISFORM.ControlCount IF UPPER(THISFORM.Controls[m.i].BaseClass) = "COMMANDBUTTON" lnCount = lnCount +1 ENDIF ENDFOR RETURN lnCount ENDPROC PROCEDURE item_access LPARAMETERS m.nIndex IF VARTYPE(nIndex) = "C" RETURN THISFORM.&nIndex. ENDIF RETURN THISFORM.myButtons[m.nIndex] ENDPROC Name = "collection" custom~% J 2U% n6C*The amount entered must be greater than 0.xTTT UVNEWVALTHISVALUEAMOUNTTUTHISAMOUNTVALUE amount_assign,Valid1ra!A312  ))MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0 numfieldPixelsClass1textboxnumfieldamount *amount_assign )PROCEDURE amount_assign #DEFINE BADAMOUNT_LOC "The amount entered must be greater than 0." LPARAMETERS vNewVal IF vNewVal <0 MESSAGEBOX(BADAMOUNT_LOC) THIS.Value = 1 THIS.Amount = 1 ELSE THIS.Amount = m.vNewVal ENDIF ENDPROC PROCEDURE Valid THIS.Amount = THIS.Value ENDPROC textboxFontName = "MS Sans Serif" FontSize = 8 Alignment = 3 Value = 123 Height = 23 InputMask = "99999" Width = 100 Name = "numfield" Name = "collectionx"  collectionx collectionx